home *** CD-ROM | disk | FTP | other *** search
/ More Anime Pin-Up Beauties / More Anime Pin-Up Beauties.iso / pc / east / gpx05.dir / 00201_Script_201 < prev    next >
Text File  |  1998-06-22  |  3KB  |  146 lines
  1. -- For CLICK
  2. -- ++++++++++++++++++++++++++++++++ initialize of CLICK BOX
  3. on initCLK
  4.     global gPathItem
  5.     global gCLKerr
  6.     global gCLKnum
  7.  
  8.     cursor 4
  9.     put 0 into gCLKerr
  10.     put 1 into gCLKnum
  11.  
  12.     chgScene("PL-000", the frame + 1, gPathItem & "BGB00")
  13.     -- Wait Slider
  14.     puppetSprite 22,TRUE
  15.     set the locV of sprite 22 to 216
  16.     upDateStage
  17.  
  18.     aiffSound(6)
  19.  
  20.     startTimer
  21.     cursor -1
  22.  
  23. -- ++++++++++++++++++++++++++++++++ termination of CLICK BOX(MENU)
  24. on termCLK
  25.  
  26.     cursor 4
  27.     repeat with n = 2 to 24
  28.         puppetSprite n, FALSE
  29.     end repeat
  30.  
  31.     go to frame "000"
  32.  
  33. -- ++++++++++++++++++++++++++++++++ termination of CLICK BOX(time up or too much error)
  34. on badCLK
  35.  
  36.     cursor 4
  37.     repeat with n = 2 to 24
  38.         puppetSprite n, FALSE
  39.     end repeat
  40.  
  41.     go to frame "CLKNG"
  42.  
  43. -- ++++++++++++++++++++++++++++++++ termination of CLICK BOX(complete)
  44. on completeCLK
  45.  
  46.     cursor 4
  47.     repeat with n = 2 to 24
  48.         puppetSprite n, FALSE
  49.     end repeat
  50.  
  51.     go to frame "CLKOK"
  52.  
  53. -- ++++++++++++++++++++++++++++++++ set position of  TIMER gage
  54. on placeTimGage
  55.  
  56.     put (the timer / 15) into vPos
  57.  
  58.     if vPos > 240 then
  59.         badCLK()
  60.         exit
  61.     end if
  62.  
  63.     puppetSprite 22,TRUE
  64.     set the locV of sprite 22 to (216 + vPos)
  65.  
  66. -- ++++++++++++++++++++++++++++++++ exactly
  67. on exactlyCLK
  68.     global gCLKnum
  69.  
  70.     cursor 4
  71.  
  72.     puppetSound "PING"
  73.     upDateStage
  74.     put the timer + 60 into vT
  75.     repeat while (the timer < vT)
  76.     --
  77.     end repeat
  78.  
  79.     if gCLKnum > 6 then
  80.         completeCLK()
  81.         exit
  82.     end if
  83.  
  84.     put gCLKnum + 1 into gCLKnum
  85.     
  86.     cursor -1
  87.     go to (the frame + 1)    
  88.  
  89. -- ++++++++++++++++++++++++++++++++ exactly
  90. on missCLK
  91.     global gCLKerr
  92.  
  93.     cursor 4
  94.  
  95.     puppetSound "BUZ"
  96.     upDateStage
  97.    put the timer + 60 into vT
  98.     repeat while (the timer < vT)
  99.     --
  100.     end repeat
  101.  
  102.     put gCLKerr + 1 into gCLKerr
  103.  
  104.     if gCLKerr > 3 then
  105.         badCLK()
  106.         exit
  107.     end if
  108.  
  109.     cursor -1
  110.  
  111. -- ++++++++++++++++++++++++++++++++ initialize of complete
  112. on completeCLKinit
  113.     global gPathItem
  114.  
  115.     cursor 4
  116.  
  117.     puppetSound "FAN"
  118.     upDateStage
  119.     startTimer
  120.     repeat while the timer < 300
  121.         --
  122.     end repeat
  123.  
  124.     chgScene("PL-000", the frame + 1, gPathItem & "BGB99")
  125.  
  126.     cursor -1
  127.  
  128. on completeCLKloop
  129.  
  130.     if the timer < 300 then
  131.         go to the frame
  132.     end if
  133.  
  134. -- ++++++++++++++++++++++++++++++++ initialize of bad
  135. on badCLKinit
  136.     global gPathItem
  137.     global gCLKnum
  138.  
  139.     cursor 4
  140.  
  141.     chgScene("PL-000", the frame + 1, gPathItem & "BGB0" & gCLKnum)
  142.  
  143.     aiffSound(2)
  144.  
  145.     cursor -1
  146.